home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / djgpp / contrib / pdcurs22 / src / portable / util.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-01-26  |  10.2 KB  |  300 lines
  1. /*
  2. ***************************************************************************
  3. * This file comprises part of PDCurses. PDCurses is Public Domain software.
  4. * You may use this code for whatever purposes you desire. This software
  5. * is provided AS IS with NO WARRANTY whatsoever.
  6. * Should this software be used in another application, an acknowledgement
  7. * that PDCurses code is used would be appreciated, but is not mandatory.
  8. *
  9. * Any changes which you make to this software which may improve or enhance
  10. * it, should be forwarded to the current maintainer for the benefit of 
  11. * other users.
  12. *
  13. * The only restriction placed on this code is that no distribution of
  14. * modified PDCurses code be made under the PDCurses name, by anyone
  15. * other than the current maintainer.
  16. * 
  17. * See the file maintain.er for details of the current maintainer.
  18. ***************************************************************************
  19. */
  20. #define    CURSES_LIBRARY    1
  21. #include <curses.h>
  22.  
  23. #if defined(DOS) && defined(MSC)
  24. #include <time.h>
  25. #endif
  26.  
  27. #ifdef OS2
  28. # ifdef EMXVIDEO
  29. #include <termios.h>
  30. # else
  31.     APIRET APIENTRY DosSleep(ULONG ulTime);
  32. # endif
  33. #endif
  34.  
  35. /* undefine any macros for functions defined in this module */
  36. #undef    unctrl
  37. #undef    keyname
  38. #undef    filter
  39. #undef    use_env
  40. #undef    put_win
  41. #undef    get_win
  42. #undef    delay_output
  43. #undef    flushinp
  44.  
  45. /* undefine any macros for functions called by this module if in debug mode */
  46. #ifdef PDCDEBUG
  47. #endif
  48.  
  49. #ifdef PDCDEBUG
  50. char *rcsid_util  = "$Id$";
  51. #endif
  52.  
  53. /*man-start*********************************************************************
  54.  
  55.   Name:                                                          util
  56.  
  57.   Synopsis:
  58.       char *unctrl(chtype c);
  59.       char *keyname(int key);
  60.   ***    int filter(void);
  61.   ***    void use_env(void);
  62.   ***    int putwin(WINDOW *win, FILE *filep);
  63.   ***    WINDOW *getwin(FILE *filep);
  64.       int delay_output( int ms );
  65.       int flushinp(void);
  66.  
  67.   X/Open Description:
  68.      The unctrl() routine expands the character c into a character
  69.      string which is a printable representation of the character.
  70.      Control characters are displayed in the ^X notation.  Printing
  71.      characters are displayed normally.
  72.  
  73.      The keyname() function returns a pointer to a character string 
  74.      containing a symbolic name corresponding to that specified in 
  75.      the argument key. key may be any key returned by wgetch().
  76.  
  77.      The delay_output() function inserts ms millisecond pause in output.
  78.      On some systems, this has no effect.
  79.  
  80.      The flushinp() routine throws away any type-ahead that has been 
  81.      typed by the user and has not yet been read by the program.
  82.  
  83.   PDCurses Description:
  84.      The conversion from a control character to a two-character
  85.      sequence is done by the unctrl() function. In the BSD version
  86.      of curses it is done by a macro, which uses a publicly
  87.      available translation table. Some ill-behaved application
  88.      programs use the table directly, and since it does not exist
  89.      in this curses version such application will link with an
  90.      error message complaining about undefined symbols.
  91.  
  92.      If the PDCurses library is compiled under DOS with the FAST_VIDEO
  93.      define true, then we will poke the BIOS keyboard buffer head and
  94.      tail pointers, resetting the typeahead to implement flushinp().
  95.      If this is not true, then we will be unable to reliably flush
  96.      the typeahead.
  97.  
  98.   X/Open Return Value:
  99.      All functions return OK on success and ERR on error.
  100.  
  101.   X/Open Errors:
  102.      No errors are defined for this function.
  103.  
  104.   Portability                             X/Open    BSD    SYS V
  105.                                           Dec '88
  106.       unctrl                                Y        Y       Y
  107.       keyname                               Y        -      3.0
  108.       filter                                Y        -      3.0
  109.       use_env                               -        -      4.0
  110.       put_win                               -        -      4.0
  111.       get_win                               -        -      4.0
  112.       delay_output                          Y        Y       Y
  113.       flushinp                              Y        Y       Y
  114.  
  115. **man-end**********************************************************************/
  116.  
  117. static char strbuf[3] = {0, 0, 0};
  118.  
  119. /***********************************************************************/
  120. char*    unctrl(chtype c)
  121. /***********************************************************************/
  122. {
  123.     chtype    ic = c;
  124.  
  125. #ifdef PDCDEBUG
  126.     if (trace_on) PDC_debug("unctrl() - called\n");
  127. #endif
  128.  
  129.     ic &= A_CHARTEXT;
  130.     if (ic >= 0x20 && ic != 0x7f)        /* normal characters */
  131.     {
  132.         strbuf[0] = (char) ic;
  133.         strbuf[1] = '\0';
  134.         return( strbuf );
  135.     }
  136.     strbuf[0] = '^';    /* '^' prefix */
  137.     if (c == 0x7f)
  138.     {
  139.         /*
  140.          * 0x7f == DEL
  141.          */
  142.         strbuf[1] = '?';
  143.     }
  144.     else
  145.     {
  146.         /*
  147.          * other control
  148.          */
  149.         strbuf[1] = (char)(ic + '@');
  150.     }
  151.     return( strbuf );
  152. }
  153. /***********************************************************************/
  154. char *    keyname(int key)
  155. /***********************************************************************/
  156. {
  157.     static char *key_name[] =
  158.     {
  159.  "KEY_BREAK","KEY_DOWN","KEY_UP","KEY_LEFT","KEY_RIGHT","KEY_HOME","KEY_BACKSPACE",
  160.  "KEY_F0","KEY_F(1)","KEY_F(2)","KEY_F(3)","KEY_F(4)","KEY_F(5)",
  161.  "KEY_F(6)","KEY_F(7)","KEY_F(8)","KEY_F(9)","KEY_F(10)",
  162.  "KEY_F(11)","KEY_F(12)","KEY_F(13)","KEY_F(14)","KEY_F(15)",
  163.  "KEY_F(16)","KEY_F(17)","KEY_F(18)","KEY_F(19)","KEY_F(20)",
  164.  "KEY_F(21)","KEY_F(22)","KEY_F(23)","KEY_F(24)","KEY_F(25)",
  165.  "KEY_F(26)","KEY_F(27)","KEY_F(28)","KEY_F(29)","KEY_F(30)",
  166.  "KEY_F(31)","KEY_F(32)","KEY_F(33)","KEY_F(34)","KEY_F(35)",
  167.  "KEY_F(36)","KEY_F(37)","KEY_F(38)","KEY_F(39)","KEY_F(40)",
  168.  "KEY_F(41)","KEY_F(42)","KEY_F(43)","KEY_F(44)","KEY_F(45)",
  169.  "KEY_F(46)","KEY_F(47)","KEY_F(48)","KEY_F(49)","KEY_F(50)",
  170.  "KEY_F(51)","KEY_F(52)","KEY_F(53)","KEY_F(54)","KEY_F(55)",
  171.  "KEY_F(56)","KEY_F(57)","KEY_F(58)","KEY_F(59)","KEY_F(60)",
  172.  "KEY_F(61)","KEY_F(62)","KEY_F(63)",
  173.  "KEY_DL","KEY_IL","KEY_DC","KEY_IC","KEY_EIC","KEY_CLEAR","KEY_EOS","KEY_EOL",
  174.  "KEY_SF","KEY_SR","KEY_NPAGE","KEY_PPAGE","KEY_STAB","KEY_CTAB","KEY_CATAB",
  175.  "KEY_ENTER","KEY_SRESET","KEY_RESET","KEY_PRINT","KEY_LL","KEY_ABORT","KEY_SHELP",
  176.  "KEY_LHELP","KEY_BTAB","KEY_BEG","KEY_CANCEL","KEY_CLOSE","KEY_COMMAND","KEY_COPY",
  177.  "KEY_CREATE","KEY_END","KEY_EXIT","KEY_FIND","KEY_HELP","KEY_MARK","KEY_MESSAGE",
  178.  "KEY_MOVE","KEY_NEXT","KEY_OPEN","KEY_OPTIONS","KEY_PREVIOUS","KEY_REDO",
  179.  "KEY_REFERENCE","KEY_REFRESH","KEY_REPLACE","KEY_RESTART","KEY_RESUME","KEY_SAVE",
  180.  "KEY_SBEG","KEY_SCANCEL","KEY_SCOMMAND","KEY_SCOPY","KEY_SCREATE","KEY_SDC","KEY_SDL",
  181.  "KEY_SELECT","KEY_SEND","KEY_SEOL","KEY_SEXIT","KEY_SFIND","KEY_SHOME","KEY_SIC",
  182.  "NO KEY NAME",
  183.  "KEY_SLEFT","KEY_SMESSAGE","KEY_SMOVE","KEY_SNEXT","KEY_SOPTIONS","KEY_SPREVIOUS",
  184.  "KEY_SPRINT","KEY_SREDO","KEY_SREPLACE","KEY_SRIGHT","KEY_SRSUME","KEY_SSAVE",
  185.  "KEY_SSUSPEND","KEY_SUNDO","KEY_SUSPEND","KEY_UNDO",
  186.  "ALT_0","ALT_1","ALT_2","ALT_3","ALT_4","ALT_5","ALT_6","ALT_7","ALT_8","ALT_9",
  187.  "ALT_A","ALT_B","ALT_C","ALT_D","ALT_E","ALT_F","ALT_G","ALT_H","ALT_I","ALT_J",
  188.  "ALT_K","ALT_L","ALT_M","ALT_N","ALT_O","ALT_P","ALT_Q","ALT_R","ALT_S","ALT_T",
  189.  "ALT_U","ALT_V","ALT_W","ALT_X","ALT_Y","ALT_Z","CTL_LEFT","CTL_RIGHT","CTL_PGUP",
  190.  "CTL_PGDN","CTL_HOME","CTL_END","KEY_BACKTAB","KEY_A1","KEY_A2","KEY_A3","KEY_B1",
  191.  "KEY_B2","KEY_B3","KEY_C1","KEY_C2","KEY_C3","PADSLASH","PADENTER","CTL_PADENTER",
  192.  "ALT_PADENTER","SHF_PADSTOP","PADSTAR","PADMINUS","PADPLUS","CTL_PADSTOP",
  193.  "CTL_PADCENTER","CTL_PADPLUS","CTL_PADMINUS","CTL_PADSLASH","CTL_PADSTAR","ALT_PADPLUS",
  194.  "ALT_PADMINUS","ALT_PADSLASH","ALT_PADSTAR","CTL_INS","ALT_DEL","ALT_INS","CTL_UP",
  195.  "CTL_DOWN","CTL_TAB","ALT_TAB","ALT_MINUS","ALT_EQUAL","ALT_HOME","ALT_PGUP","ALT_PGDN",
  196.  "ALT_END","ALT_UP","ALT_DOWN","ALT_RIGHT","ALT_LEFT","ALT_ENTER","ALT_ESC","ALT_BQUOTE",
  197.  "ALT_LBRACKET","ALT_RBRACKET","ALT_SEMICOLON","ALT_FQUOTE","ALT_COMMA","ALT_STOP",
  198.  "ALT_FSLASH","ALT_BKSP","CTL_BKSP","CTL_PAD0","CTL_PAD1","CTL_PAD2","CTL_PAD3","CTL_PAD4",
  199.  "CTL_PAD5","CTL_PAD6","CTL_PAD7","CTL_PAD8","CTL_PAD9","CTL_DEL","ALT_BSLASH","CTL_ENTER"
  200.     };
  201.  
  202. #ifdef PDCDEBUG
  203.     if (trace_on) PDC_debug("keyname() - called: key %d\n",key);
  204. #endif
  205.  
  206.     if (key < KEY_MIN
  207.     ||  key > KEY_MAX)
  208.         return((char *)"NO KEY NAME");
  209.     return( key_name[key-KEY_MIN] );
  210. }
  211. /***********************************************************************/
  212. int    delay_output( int ms )
  213. /***********************************************************************/
  214. {
  215. #ifdef PDCDEBUG
  216.     if (trace_on) PDC_debug("delay_output() - called: ms %d\n",ms);
  217. #endif
  218.  
  219. #if (defined(TC) || defined(WATCOMC)) && defined(DOS)
  220.     delay( ms );
  221.     return( OK );
  222. #endif
  223.  
  224. #if    defined(OS2)
  225. # if defined(EMX)
  226.     _sleep2(ms);
  227. # else
  228.     DosSleep(ms);
  229. # endif
  230.     return( OK );
  231. #endif
  232.  
  233. #if    defined(DOS) && defined(MSC)
  234.     PDC_usleep((clock_t)ms);
  235.     return( OK );
  236. #endif
  237.  
  238. #if    defined(DOS) && defined(NDP)
  239.     clock_t goal;
  240.     goal = ms + (float)( (float)clock()/(float)CLOCKS_PER_SEC )*1000;
  241.     while (goal > (float)( (float)clock()/(float)CLOCKS_PER_SEC )*1000)
  242.     ;
  243.     return( OK );
  244. #endif
  245.  
  246. #if defined(UNIX) || defined(GO32)
  247.     usleep(1000*ms);
  248.     return( OK );
  249. #endif
  250.  
  251. #if defined(XCURSES)
  252.     PDC_usleep(ms);
  253.     return( OK );
  254. #endif
  255.  
  256. }
  257. /***********************************************************************/
  258. int    flushinp(void)
  259. /***********************************************************************/
  260. {
  261. extern int    c_pindex;        /* putter index */
  262. extern int    c_gindex;        /* getter index */
  263. extern int    c_ungind;        /* wungetch() push index */
  264.  
  265. #ifdef PDCDEBUG
  266.     if (trace_on) PDC_debug("flushinp() - called\n");
  267. #endif
  268.  
  269. #if defined(DOS) && defined(FAST_VIDEO)
  270.     setdosmemword (0x41a, getdosmemword (0x41c)); /* Force the BIOS kbd buf       */
  271.                     /* head/tail pointers to be the */
  272.                     /* same...  Real nasty trick... */
  273. #  if defined(NDP)
  274. /*
  275.     int *KB_HEAD = (int *) mapdev( 0x041aL, sizeof(short) );
  276.     int *KB_TAIL = (int *) mapdev( 0x041cL, sizeof(short) );
  277.  
  278.     memcpy( KB_HEAD, KB_TAIL, sizeof(short) );
  279. */
  280. #  endif
  281. #endif
  282.  
  283. #ifdef OS2
  284. #  ifdef EMXVIDEO
  285.     tcflush(0,TCIFLUSH);
  286. #  else
  287.     KbdFlushBuffer(0);
  288. #  endif
  289. #endif
  290.  
  291. #ifdef UNIX
  292. /* INCOMPLETE */
  293. #endif
  294.  
  295.     c_gindex = 1;            /* set indices to kill buffer     */
  296.     c_pindex = 0;
  297.     c_ungind = 0;            /* clear c_ungch array         */
  298.     return( OK );
  299. }
  300.